Unit
lmdformA

Declaration

TLMDTrackInfoEvent = procedure(Sender:TObject; var MinWidth, MinHeight, MaxWidth,
                               MaxHeight:Integer) of object;